PC World Komputer 1997 November/Pcwk1197.iso/LOTUS/Eng-ins/ACROREAD/SUITE/DW08_S6.APR/SCRIPT/ApproachDoc/Invoice - Main/Body/CustomerID.s

Null Bytes Alternating | 1996-10-27 | 2KB | 33 lines

'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Gotfocus(Source As Fieldbox)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As FIELDBOX
    Set Source = Bind(Objectname_)
    On Event Gotfocus From Source Call Gotfocus
End Sub

'++LotusScript Development Environment:2:2:Gotfocus:1:12
Sub Gotfocus(Source As Fieldbox)
    ' Count property
'We need to access the main table through the data object.
'The first step is to find out the name of the main table.
    Dim MyDoc As String
    Dim NumDocs As Integer
    Dim Docs As Variant
    Dim i As Variant

    MyDoc =" test"             'CurrentView.MainTable   Get the name of the main table.
    Set Docs = CurrentApplication.Documents   'Get the collection of tables.
    NumDocs = Docs.Count   'Find out how many tables there are.
    Print NumDocs
    For i = 1 To NumDocs Step 1
        Print CurrentDocument.filename
        'CURRENTWINDOW = Next
    Next
End Sub